home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / v20timer.arc / V20TIMER.ASM next >
Encoding:
Assembly Source File  |  1985-11-02  |  6.5 KB  |  191 lines
  1. ;
  2. ;
  3. ;                            V20TIMER.ASM
  4. ;
  5. ;    Adapted from "ptimer.asm/cpu.com"
  6. ;
  7. ;    Modified 851028 by COMPUQUEST Inc. to show full, accurate clock speed.
  8. ;
  9. ;    
  10. ;    This timing loop is constructed to take exactly 10.0 seconds to
  11. ;    execute when run on a standard pc/compatible using the 8088 micro
  12. ;    and the standard clock speed of 4.77 Mhz.
  13. ;
  14. ;    The speed gain achieved by using the NEC V20, as can be seen, is
  15. ;    almost 300%.  It should be noted that the V20 gets its advantage
  16. ;    mainly from its ability to execute instructions in a fraction of
  17. ;    the normal bus-cycle time taken to do the same instruction with
  18. ;    an 8088.  Therefore, this timing test shows a greater improvement
  19. ;    than you would see with normal PC use.
  20. ;
  21. ;    Still... a V20 in your PC will make a BIG DIFFERENCE in speed for
  22. ;    things like spreadsheet recalcs, assemblies, compiles, and other
  23. ;    tasks where alot of memory moves, calculation instructions etc. are
  24. ;    going on.   
  25. ;
  26. ;    As a good example, that %$*&#@$ wait needed to run the Memory Check
  27. ;    when you boot a PC will take only about 1/4 the time !!
  28. ;
  29. ;
  30. ;        NOTE:  COMPUQUEST Inc. is an electronic engineering Co.
  31. ;               that designs and develops microprocessor-based    
  32. ;               products; both hardware and software.  If you need
  33. ;               more info, give us a call !!
  34. ;
  35. ;   SPEED UP YOUR PC/COMPATIBLE FOR JUST $19.95 with NEC V20-8!
  36. ; 
  37. ;Only $19.95 from COMPUQUEST Inc. !   In Stock, Same-day Shipment !
  38. ;Includes installation instructions.  This is an 8 Mhz part!
  39. ; 
  40. ;NEC V20-8 is a direct replacement for 8088 CPU.  Just plug in and go.
  41. ;Complete compatibility with 8087. Uses only 20% of the power that
  42. ;the 8088 draws, and makes your PC run up to 90%  --- -- ->FASTER!!
  43. ; 
  44. ;Use your Master Charge, VISA, AMEX, COD or Check.
  45. ;Delivery in Illinois, add 7% tax. ($1.40)
  46. ; 
  47. ;Call, write, or pick up Monday - Friday  8:00 / 5:00 at
  48. ; COMPUQUEST Inc.  801 Morse Ave.  Schaumburg, IL  60193    
  49. ;           1-800-722-2353 Outside Illinois
  50. ;           (312) 529-2552 Inside  Illinois or for 
  51. ;                          Nationwide Technical Info
  52. ;     NOTE: V30-8 (replaces 8086) also available at $24.95 ea.
  53. ;
  54. ; Full specification booklet and application notes are available for $5.00
  55. ;
  56. ;
  57. ;
  58. ;
  59. ;
  60. ;
  61. ;
  62. ;
  63. LF      EQU     0AH
  64. CR      EQU     0DH
  65.  
  66. code    SEGMENT
  67.         ASSUME  CS:code,DS:code,ES:code
  68.         ORG     100H
  69. start:  MOV     AH,9
  70.         MOV     DX,OFFSET banner
  71.         INT     21H
  72.         MOV     AH,2CH
  73.         INT     21H
  74. ;                                     clocks needed
  75. ;--------------------------------------------------
  76.         MOV  OldSec,DX ; 19              =       19
  77.         XOR  AX,AX     ;  3              =        3
  78.         MOV  DX,10     ;  4              =        4 
  79. outer:  MOV  CX,47227  ;  4         * 10 =       40
  80. inner:  AAM            ; 83 * 47227 * 10 = 39198410   (  1.98 % )
  81.         DEC  CX        ;  2 * 47227 * 10 =   944540   (  1.98 % )
  82.         JNZ  inner     ; 16 * 47226 * 10 +  
  83.                        ;  4         * 10 =  7556200   ( 15.84 % )
  84.         DEC  DX        ;  2         * 10 =       20
  85.         JNZ  outer     ; 16         *  9 +  
  86.                        ;  4              =      148
  87.         MOV  AH,2CH    ;  4              =        4
  88.         INT     21H
  89. ;--------------------------------------------------
  90. ;                        T O T A L       = 47699388 + INT GetTime
  91. ;                        or                4.77E+06 * 10
  92.  
  93. ;
  94. ; If NEC V-20 is plugged into the PC, with no other changes, (i.e. still 
  95. ; running 4.77 Mhz), the faster instruction execution time of the NEC V-20 
  96. ; greatly reduces the routine execution time to only 15980000 clocks 
  97. ; instead of 47699388.  Thus:
  98. ;
  99. ;   "Actual execution time here was 03.35 seconds
  100. ;    Effective clock speed = 14.23 Mhz" 
  101. ;
  102. ;
  103. ;
  104.         MOV     AX,100
  105.         IMUL    DH
  106.         MOV     DH,0
  107.         ADD     AX,DX                  ;seconds(after)  * 100  [0..5999]
  108.         MOV     BX,AX
  109.         MOV     DX,OldSec
  110.         MOV     AX,100
  111.         IMUL    DH
  112.         MOV     DH,0
  113.         ADD     AX,DX                  ;seconds(before) * 100  [0..5999]
  114.         SUB     BX,AX
  115.         JNB     SameM                  ;within same minute, no adjustment
  116.         ADD     BX,6000                ;otherwise add 1 minute
  117. SameM:  MOV     AX,BX
  118.         MOV     DifSec,BX
  119.         MOV     BP,offset ACTsec
  120.         MOV     BX,1000
  121.         CWD
  122.         IDIV    BX                     ;dx:ax / 1000
  123.         CALL    ToASC                  ;get first digit
  124.         MOV     BX,100
  125.         MOV     AX,DX
  126.         CWD
  127.         IDIV    BX
  128.         CALL    ToASC                  ;get second digit
  129.         INC     BP                     ;skip decimal point
  130.         MOV     BX,10
  131.         MOV     AX,DX
  132.         CWD
  133. EX:     IDIV    BX   
  134.         CALL    ToASC                  ;first digit after decimal point
  135.         MOV     AX,DX
  136.         CALL    ToASC                  ;last digit after decimal point
  137.         MOV     AH,9
  138.         MOV     DX,OFFSET EXCmsg
  139.         INT     21H
  140.         MOV     AX,4770
  141.         CWD
  142.         MOV     BX,DifSec
  143.         DIV     BX
  144.         MOV     BP,offset EFFclk
  145. ;
  146. ;    PROVIDE FOR TWO DIGITS BEFORE DECIMAL PT.
  147.     DIV    TEN        ;REDUCE AX TO QUOTIENT, REMAINDER
  148.     CALL    ToASC        ;PROCESS QUOTIENT INTO TENS DIGIT
  149.     XCHG    AL,AH        ;PUT REMAINDER INTO AL
  150. ;
  151.     CALL    ToASC                  ;get one digit
  152.         INC     BP                     ;skip decimal point
  153.         MOV     AX,DX
  154.         MOV     CX,10
  155.         MUL     CX                     ;remainder * 10
  156.         DIV     BX
  157.         CALL    ToASC
  158.         MOV     AX,DX
  159.         MUL     CX                     ;remainder * 10
  160.         DIV     BX
  161.         CALL    ToASC
  162.         MOV     AH,9
  163.         MOV     DX,OFFSET EFFmsg
  164.         INT     21H
  165.         MOV     AH,4CH                 ;terminate with '$'
  166.         INT     21H                    ;as return code
  167.  
  168. ToASC   proc    near
  169.         OR      AL,30H
  170.         MOV     [BP],AL
  171.         INC     BP
  172.         ret
  173. ToASC   endp
  174.  
  175. OldSec  DW      0
  176. DifSec  DW      0
  177. Ten    db    0ah
  178.  
  179. Banner  DB      '        EXECUTION TIME vs. CLOCK SPEED  (minimal RAM access),   please wait...'
  180.         DB      CR,LF,'$'
  181. EXCmsg  DB      'Execution time should be 10.00 secs if 4.77 Mhz clock'
  182.         DB      ' & no WAITs on RAM access',CR,LF,CR,LF,CR,LF,CR,LF,CR,LF
  183.         DB      'Actual execution time here was '
  184. ACTsec  DB      '00.00 seconds',CR,LF,'$'
  185. EFFmsg  DB      'Effective clock speed = '
  186. EFFclk  DB      '00.00 Mhz',CR,LF,'$'
  187.  
  188. code    ENDS
  189. ;
  190.         END   start
  191.